﻿Public Class GammelKode

#Region "Main"

    'Dim Pic1 As New PictureBox
    'Dim Pic2 As New PictureBox
    'Dim Pic3 As New PictureBox
    'Dim Pic4 As New PictureBox
    'Dim Pic5 As New PictureBox
    'Dim Pic6 As New PictureBox
    'Dim Pic7 As New PictureBox
    'Dim Pic8 As New PictureBox
    'Dim Pic9 As New PictureBox
    'Dim Pic10 As New PictureBox
    'Dim Pic11 As New PictureBox
    'Dim Pic12 As New PictureBox
    'Dim Pic13 As New PictureBox
    'Dim Pic14 As New PictureBox
    'Dim Pic15 As New PictureBox
    'Dim Pic16 As New PictureBox


    ''Dim x As Integer
    'Pic1.Size = New Size(50, 50)
    'Pic1.Image = My.Resources.SmallPit
    'Pic1.Parent = Me
    'Pic1.Location = New Point(0, 150)
    'Pic1.Padding = New Padding(0, 0, 0, 0)

    'Pic2.Size = New Size(50, 50)
    'Pic2.Image = My.Resources.SmallPit
    'Pic2.Parent = Me
    'Pic2.Location = New Point(50, 150)
    'Pic2.Padding = New Padding(0, 0, 0, 0)

    'Pic3.Size = New Size(50, 50)
    'Pic3.Image = My.Resources.SmallPit
    'Pic3.Parent = Me
    'Pic3.Location = New Point(100, 150)
    'Pic3.Padding = New Padding(0, 0, 0, 0)

    'Pic4.Size = New Size(50, 50)
    'Pic4.Image = My.Resources.SmallPit
    'Pic4.Parent = Me
    'Pic4.Location = New Point(150, 150)
    'Pic4.Padding = New Padding(0, 0, 0, 0)

    'Pic5.Size = New Size(50, 50)
    'Pic5.Image = My.Resources.SmallPit
    'Pic5.Parent = Me
    'Pic5.Location = New Point(0, 100)
    'Pic5.Padding = New Padding(0, 0, 0, 0)

    'Pic6.Size = New Size(50, 50)
    ''Pic6.Image = My.Resources.SmallPit
    'Pic6.Parent = Me
    'Pic6.Location = New Point(50, 150)
    'Pic6.Padding = New Padding(0, 0, 0, 0)

    'Pic9.Size = New Size(50, 50)
    ''Pic9.Image = My.Resources.SmallPit
    'Pic9.Parent = Me
    'Pic9.Location = New Point(0, 50)
    'Pic9.Padding = New Padding(0, 0, 0, 0)

    'Pic13.Size = New Size(50, 50)
    ''Pic13.Image = My.Resources.SmallPit
    'Pic13.Parent = Me
    'Pic13.Location = New Point(0, 0)
    'Pic13.Padding = New Padding(0, 0, 0, 0)

    'Pic16.Size = New Size(50, 50)
    ''Pic16.Image = My.Resources.SmallPit
    'Pic16.Parent = Me
    'Pic16.Location = New Point(150, 0)
    'Pic16.Padding = New Padding(0, 0, 0, 0)

    'Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    aMove.Right(wumpusWorld)
    'End Sub

    'Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    aMove.Left(wumpusWorld)
    'End Sub

    'Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    aMove.Up(wumpusWorld)
    'End Sub

    'Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    aMove.Down(wumpusWorld)
    'End Sub


#End Region
#Region "GenerateWorld"
    'Public Sub GeneratePicturesListOF(ByVal List As List(Of Cell))
    '    Dim xPos As Integer = 0
    '    Dim yPos As Integer = 0

    '    For Each Cell In List
    '        Dim Picture As New PictureBox


    '        If List.IndexOf(Cell) Mod 2 = 0 Then

    '            Picture.Size = New Size(50, 50)
    '            Picture.Image = My.Resources.SmallPit
    '            Picture.Parent = MainWindow
    '            Picture.Location = New Point(Cell.xPos, Cell.yPos)
    '            Picture.Padding = New Padding(0, 0, 0, 0)
    '        End If
    '    Next
    'End Sub


    'Public Function GenerateBoardCellList()
    '    Dim CellList As New List(Of Cell)
    '    Dim GridSize As Integer = 4
    '    Dim xPos, yPos As Integer

    '    yPos = 0
    '    For row = 1 To GridSize

    '        xPos = 0

    '        For column = 1 To GridSize

    '            Dim aCell As New Cell
    '            aCell.xPos = xPos
    '            aCell.yPos = yPos
    '            CellList.Add(aCell)
    '            xPos += 50

    '        Next

    '        yPos += 50

    '    Next

    '    Return CellList
    'End Function

    'Public Sub updateCell(ByVal celle As Cell)
    '    'Updates the cell
    '    With cellList(celle.xPos, celle.yPos)
    '        .isVisited = celle.isVisited
    '        .hasWumpus = celle.hasWumpus
    '        .hasStench = celle.hasStench
    '        .hasPit = celle.hasPit
    '        .hasGold = celle.hasGold
    '        .hasGlitter = celle.hasGlitter
    '        .hasBreeze = celle.hasBreeze
    '        .hasAgent = celle.hasAgent
    '    End With

    'End Sub
#End Region

    'Private Sub MainWindow_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    '    Select Case e.KeyValue
    '        Case Keys.Right
    '            anAgent.TurnRight(wumpusWorld)
    '        Case Keys.Left
    '            anAgent.TurnLeft(wumpusWorld)
    '        Case Keys.Up
    '            Select Case anAgent.Direction
    '                Case AgentDirection.Right
    '                    anAgent.MoveRight(wumpusWorld)
    '                Case AgentDirection.Down
    '                    anAgent.MoveDown(wumpusWorld)
    '                Case AgentDirection.Left
    '                    anAgent.MoveLeft(wumpusWorld)
    '                Case AgentDirection.Up
    '                    anAgent.MoveUp(wumpusWorld)
    '            End Select

    '    End Select
    'End Sub

    'Public Sub ShootDown(ByVal world(,) As Cell)

    '    If Not _activeCell.yPos + 2 > world.GetLength(0) Then
    '        If world(_activeCell.xPos, _activeCell.yPos + 1).hasWumpus Then
    '            MainWindow.wumpusAlive = False
    '            OnWumpusKilled(New EventArgs())
    '        Else
    '            OnWumpusMissed(New EventArgs())

    '        End If
    '    Else
    '        OnShotOutside(New EventArgs())
    '    End If

    'End Sub
    'Public Sub ShootLeft(ByVal world(,) As Cell)
    '    If Not _activeCell.xPos - 1 < 0 Then
    '        If world(_activeCell.xPos - 1, _activeCell.yPos).hasWumpus Then
    '            MainWindow.wumpusAlive = False
    '            OnWumpusKilled(New EventArgs())
    '        Else
    '            OnWumpusMissed(New EventArgs())

    '        End If
    '    Else
    '        OnShotOutside(New EventArgs())
    '    End If

    'End Sub
    'Public Sub ShootUp(ByVal world(,) As Cell)

    '    If Not _activeCell.yPos - 1 < 0 Then
    '        If world(_activeCell.xPos, _activeCell.yPos - 1).hasWumpus Then
    '            MainWindow.wumpusAlive = False
    '            OnWumpusKilled(New EventArgs())
    '        Else
    '            OnWumpusMissed(New EventArgs())

    '        End If
    '    Else
    '        OnShotOutside(New EventArgs())
    '    End If

    'End Sub
End Class
